63000 REM C64 SETUP ROUTINE *CONTRIBUTED      BY FRED LAYBERGER, OMAHA NEBRASKA
63005 IFA=1THENSYS12*4096+12*256:NEW
63010 BR=12:BG=15:C=0:CC=11:PRINTCHR$(147):POKE53280,BR:POKE53281,BG:POKE646,CC
63015 PRINT"":TM$="C64 SETUP ROUTINE":BM$="SELECT COLORS"
63020 PRINT""TAB(((40-LEN(TM$))/2))TM$"[146]"
63025 PRINT"    PRESS:":PRINTSPC(10)"F1 - BACKGROUND COLOR"
63030 PRINTSPC(10)"F3 - BORDER COLOR":PRINTSPC(10)"F5 - CHARACTER COLOR"
63035 PRINTSPC(10)"F7 - COLOR BAR":PRINTSPC(10)"F6 - LOAD/RUN DOS WEDGE"
63040 PRINTSPC(10)"F8 - EXIT"
63045 PRINT""TAB(((40-LEN(BM$))/2))BM$"[146]"
63050 POKE198,0:WAIT198,1:GETA$:IFA$="[139]"THEN63145
63055 IFA$="[134]"THEN63090
63060 IFA$="[133]"THEN63100
63065 IFA$="[136]"THEN63110
63070 IFA$="[140]"THENPRINT"[147]":NEW
63075 IFA$<>"[135]"THEN63020
63080 CC=CC+1:IFCC>15THENCC=0:GOTO63140
63085 GOTO63140
63090 BR=BR+1:IFBR>15THENBR=0:GOTO63140
63095 GOTO63140
63100 BG=BG+1:IFBG>15THENBG=0:GOTO63140
63105 GOTO63140
63110 PRINT"[147]";:POKE53280,0:POKE53281,0
63115 FORA=1TO20:PRINT"     [129]     [158]          [153]     [156]          [154]     ";
63120 NEXT:FORA=1TO3:PRINT"[151]                       [152]          ";
63125 PRINT"[155]       ";:NEXT:PRINT"";:POKE198,0
63130 GETA$:IFA$=""THEN63130
63135 CLR:PRINT"[147]":GOTO63015
63140 POKE53280,BR:POKE53281,BG:POKE646,CC:GOTO63015
63145 PRINT"[147]LOADING DOS 5.1"
63150 IFA=0THENA=1:LOAD"DOS 5.1",8,1:RUN
63155 NEW